90 POKE53280,0:POKE53281,0
100 PRINT"[147]           DISK-UTILITY V2.0            ";
110 PRINT"      (C) 1990 BY TORSTEN ERDMANN       [146]"
120 PRINT" F1[146] SCHREIBSCHUTZ SETZEN"
130 PRINT" F2[146] SCHREIBSCHUTZ LOESCHEN"
140 PRINT" F3[146] SCRATCHSCHUTZ SETZEN/LOESCHEN"
150 PRINT" F4[146] FLOPPYBEFEHL SENDEN"
160 PRINT" F5[146] FILETYP SETZEN"
170 PRINT" F6[146] FILE OFFEN/GESCHLOSSEN"
180 PRINT" F7[146] ID AENDERN"
190 PRINT" F8[146] DISKNAME AENDERN"
195 PRINT:PRINT:PRINT"             BITTE WAEHLEN  !           "
200 GETX$:IFX$=""THEN200
210 IFASC(X$)<133ORASC(X$)>140THEN200
220 PRINT"[147]";:ONASC(X$)-132GOTO850,1060,1260,650,950,1640,1480,750
230 REM ::::::::::::::::::::::::::::::
240 REM :::DIRECTORY-EINTRAG LESEN::::
250 REM ::::::::::::::::::::::::::::::
260 OPEN15,8,15,"I":OPEN8,8,8,"#"
270 NN$="":FORI=1TO30:NN$=NN$+CHR$(0):NEXTI
280 XX=INT((MM-1)/8)
290 PRINT#15,"U1 8 0 18 0"
300 FORZZ=1TOXX+1
310 PRINT#15,"B-P 8 0"
320 GET#8,TT$:TT=ASC(TT$+CHR$(0))
330 GET#8,SS$:SS=ASC(SS$+CHR$(0))
340 PRINT#15,"U1 8 0";TT;SS
350 NEXTZZ
360 PP=MM-(XX*8):PP=(PP-1)*32+2
370 PRINT#15,"B-P 8";PP
380 FORZZ=1TO30:GET#8,ZZ$
390 IFZZ$=""THENZZ$=CHR$(0)
400 DD$=DD$+ZZ$:NEXTZZ
410 CLOSE8:CLOSE15
420 RETURN
430 REM ::::::::::::::::::::::::::::::
440 REM ::DIRECTORY-EINTRAG SCHREIBEN:
450 REM ::::::::::::::::::::::::::::::
460 OPEN15,8,15,"I":OPEN8,8,8,"#"
470 XX=INT((MM-1)/8)
480 PRINT#15,"U1 8 0 18 0"
490 FORZZ=1TOXX+1
500 PRINT#15,"B-P 8 0"
510 GET#8,TT$:TT=ASC(TT$+CHR$(0))
520 GET#8,SS$:SS=ASC(SS$+CHR$(0))
530 IFTT=0THEN600
540 PRINT#15,"U1 8 0";TT;SS
550 NEXTZZ
560 PP=MM-(XX*8):PP=(PP-1)*32+2
570 PRINT#15,"B-P 8";PP
580 PRINT#8,DD$;
590 PRINT#15,"U2 8 0";TT;SS
600 CLOSE8:CLOSE15
610 RETURN
620 REM ::::::::::::::::::::::::::::::
630 REM ::::::::::ID AENDERN::::::::::
640 REM ::::::::::::::::::::::::::::::
650 OPEN15,8,15
660 PRINT#15,"I0":OPEN1,8,3,"#":PRINT#15,"U1:3"0",18,0"
670 PRINT#15,"B-P:3,162":GET#1,A$,B$,C$,D$,E$:PRINT"ALTER DISK-ID IST  ";A$;
680 PRINTB$;C$;D$;E$:INPUT"NEUER DISK-ID ";F$
690 IFLEN(F$)<>5THENF$=LEFT$(F$+"      ",5)
700 PRINT#15,"B-P:3,162":PRINT#1,F$;:PRINT#15,"U2:3"DV",18,0
710 I$[178]"I"[170][202]([196](DV),2):[152]15,I$
715 [160]1:[160]15:[138]
720 [143] ::::::::::::::::::::::::::::::
730 [143] ::::::DISK-NAME AENDERN:::::::
740 [143] ::::::::::::::::::::::::::::::
750 [159]15,8,15
760 [152]15,"I0":[159]1,8,3,"#":[152]15,"U1:3"0",18,0"
770 [152]15,"B-P:3,144":R$[178]"":[129]L[178]1[164]16:[161]#1,A$:R$[178]R$[170]A$:[130]L
780 [153]"ALTER DISK-NAME IST ";""R$"WAIT"
790 [133]"NEUER DISK-NAME ";NE$
800 NE$[178][200](NE$[170]"              ",16)
810 [152]15,"B-P:3,144":[152]1,NE$;:[152]15,"U2:3"DV",18,0":[137]710
820 [143] ::::::::::::::::::::::::::::::
830 [143] :::::SCHREIBSCHUTZ SETZEN:::::
840 [143] ::::::::::::::::::::::::::::::
850 [159]15,8,15,"I":[159]8,8,8,"#"
860 [152]15,"U1 8 0 18 0"
870 [152]15,"B-P 8 2"
880 [152]8,"X";
890 [152]15,"U2 8 0 18 0"
900 [152]15,"I"
910 [160]8:[160]15:[138]
920 [143] ::::::::::::::::::::::::::::::
930 [143] ::::SCHREIBSCHUTZ LOESCHEN::::
940 [143] ::::::::::::::::::::::::::::::
950 [159]15,8,15,"I":[159]8,8,8,"#"
960 [152]15,"U1 8 0 18 0"
970 [152]15,"B-P 8 2"
980 [152]15,"M-W"[199](1)[199](1)[199](1)[199](65)
990 [152]8,"A";
1000 [152]15,"U2 8 0 18 0"
1010 [152]15,"I"
1020 [160]8:[160]15:[138]
1030 [143] ::::::::::::::::::::::::::::::
1040 [143] :SCRATCHSCHUTZ SETZEN/LOESCHEN
1050 [143] ::::::::::::::::::::::::::::::
1060 MM[178]0
1070 MM[178]MM[170]1:DD$[178]"":[141]260
1080 [139]DD$[178]NN$[167][138]
1090 [153][202](DD$,4,16)" (J/N)";
1100 [161]AA$:[139]AA$[179][177]"J"[175]AA$[179][177]"N"[167]1100
1110 [139]AA$[178]"N"[167][153]"CMDCMDNWAIT":[137]1170
1120 [153]"CMDCMDCMDCMDJWAIT":HH$[178][200](DD$,1)
1130 HH$[178][199]([198](HH$)[176]2[174]6)
1140 DD$[178]HH$[170][201](DD$,29)
1150 [141]460
1160 [137]1070
1170 HH$[178][200](DD$,1)
1180 [139]([198](HH$)[175]64)[167]HH$[178][199]([198](HH$)[171]64)
1190 DD$[178]HH$[170][201](DD$,29)
1200 [141]460
1210 [137]1070
1220 [138]
1230 [143] ::::::::::::::::::::::::::::::
1240 [143] ::::::::FILETYP SETZEN::::::::
1250 [143] ::::::::::::::::::::::::::::::
1260 MM[178]0
1270 MM[178]MM[170]1:DD$[178]"":[141]260
1280 [139]DD$[178]NN$[167][138]
1290 [153][202](DD$,4,16)"  DEL SEQ PRG USR REL";
1300 [161]X$:[139]X$[179][177]"D"[175]X$[179][177]"S"[175]X$[179][177]"P"[175]X$[179][177]"U"[175]X$[179][177]"R"[167]1300
1310 [139]X$[178]"D"[167]HH[178]0:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDDELWAIT"
1320 [139]X$[178]"S"[167]HH[178]1:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDSEQWAIT"
1330 [139]X$[178]"P"[167]HH[178]2:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDPRGWAIT"
1340 [139]X$[178]"U"[167]HH[178]3:[153]"CMDCMDCMDCMDCMDCMDCMDUSRWAIT"
1350 [139]X$[178]"R"[167]HH[178]4:[153]"CMDCMDCMDRELWAIT"
1360 HH$[178][200](DD$,1):HI[178][198](HH$)
1370 [139]HI[175]1[167]HI[178]HI[171]1
1380 [139]HI[175]2[167]HI[178]HI[171]2
1390 [139]HI[175]4[167]HI[178]HI[171]4
1400 HH$[178][199](HI[170]HH)
1410 DD$[178]HH$[170][201](DD$,29)
1420 [141]460
1430 [137]1270
1440 [138]
1450 [143] ::::::::::::::::::::::::::::::
1460 [143] ::::FILE OFFEN/GESCHLOSSEN::::
1470 [143] ::::::::::::::::::::::::::::::
1480 MM[178]0
1490 MM[178]MM[170]1:DD$[178]"":[141]260
1500 [139]DD$[178]NN$[167][138]
1510 [153][202](DD$,4,16)"  (OFFEN/GESCHLOSSEN)";
1520 [161]X$:[139]X$[179][177]"O"[175]X$[179][177]"G"[167]1520
1530 HH$[178][200](DD$,1)
1540 [139]X$[178]"G"[167][153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDGESCHLOSSENWAIT":HH$[178][199]([198](HH$)[176]64):[137]1570
1550 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDOFFENWAIT"
1560 [139]([198](HH$)[175]64)[167]HH$[178][199]([198](HH$)[171]64)
1570 DD$[178]HH$[170][201](DD$,29)
1580 [141]460
1590 [137]1490
1600 [138]
1610 [143] ::::::::::::::::::::::::::::::
1620 [143] :::::FLOPPYBEFEHL:SENDEN::::::
1630 [143] ::::::::::::::::::::::::::::::
1640 [151]19,1:[133]BE$:[151]19,0
1650 [159]15,8,15,BE$:[160]15
1660 [159]15,8,15:[132]15,FR,F$,FT,FS
1670 [139]FR[178]0[167]1700
1680 [153]:[153]FR;F$" ERROR";FT;FS
1690 [161]BE$:[139]BE$[178]""[167]1690
1700 [138]